home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
wheels2.arc
/
MONITOR.LIB
< prev
next >
Wrap
Text File
|
1985-06-28
|
700b
|
22 lines
{@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
The purchaser of these procedures and functions may include them in COMPILED
programs freely, but may not sell or give away the source text.}
var
ScreenSeg : integer;
color : boolean;
{oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo}
procedure CheckColor;
begin
if (Mem[0000:1040] and 48) <> 48 then
begin
ScreenSeg := $B800;
color := true;
end
else
begin
ScreenSeg := $B000;
color := false;
end;
end;
{oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo}